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Problem 

Madical Office System contains a bug viiich may cause problems if more than 
three patient data files are used. 


Solution 

** changes to MDS are scxnev^iat critical, the following process should be 
followed closely. 

1. In BASIC, IOAD"AIPHASOR". 

2. Type these lines as shown. 

1240 FZ=INT ((A3-1 )/Zl): IFFZ OPOTHENEX>=FZ: CIX)SE3: 

FM$="roA!IA"+CHR$(48+P0)+" ;3" :N[>=3:QOSCJB400 :CLS 

1250 IR=^-K)*Z1:PR=INT( (m-l)/2)+l:SR=IR-2*INT( (IR-l)/2)-l 

3. SAVE"A£PHASOR" 

4. In BASIC, IOAD"MENO". 

5. Add these lines as shown. 

120 FZ=INT((A3-1)/Z1):IFFZOPDIHE»IED=FZ:CLOSE3; 

FM$="H)ATA"4CHR$ (48+PD)+" :3" :N[J=3:GOSUB400 

140 IR=iAC-PO*Zl:Hl=INT( (IR-l)/2)+l:SR=IR-2*INT( (IR-l)/2)-l 
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1400 DEFFNA( X )=PEEK( X )+PEEK (X+1) *256: E=FNA( fia40A4) 

1410 S=BNA(E): IFEm( S+2) <10001HBNE=S:QOTO1410 
1420 PRIlSrr"TP=TP+"S-PNA(&H40A4)"IN LINE 1110":EM) 

5. TyPE •GOTO1400 

(The oorrputer will pause and print 'TP^TP+NNNN in line 1110. The NNNN will 
be a nuitter.) 

6. TXPE 'LIST1110 

(If the nuirber eifter 'IP-WP+... does not match the oonputer generated 
number, the line must be edited to contain the new value.) 

7. TyPE 'EDmi70 

Line 1170 should look like this; 

1170 DATAMDNSORT,PRINT STATEMENTS,BLLPRT,SET UP SYSTEM DISKS,INIT, 16922, 
16923,16924,1390,4170,3,16452,16453,16454,660,3960,6 

(If the numbers under the word 'PRINT' are not 1390,4170 edit them to 
oonform to the new line 1170. There are no other changes in the line.) 

8. T«>E'SAVE''MEa«J’' 

** FORMAT A NEW DATA DISK EI» EACH PATIENT DATA DISK. 

Type in this PROGRAM: 

10 CLEAR2000;CIS;A>1:FO=-1:B2=-1 
20 IFPEEK (293 )=73TEiENZl=1390EL5EZl=660 
30 D$(1)=''QLD";D$(2)="NEW" 

^ CLS;INPOT''l«AT IS YOUR PASSWORD? (PRESS <ENTER> IF NDNE)";PW$ 

50 IFPW$='"''IHENPW$=''PASSW:»D" 

60 PW$=''.''+PW$ 

70 IFFOOINT(A:/(Z1+1))'IHEMCIDSE1:F0=INT(A:/(Z1+1)):D=1:DN=FD+1; 

GOSUB140;CPEN''R'', 1, ''PDATA''4CHR$ (FOt48) +PW$+": 1" 

80 FRJNT@339,AC 

90 IR^-ED*Z1+1:PR=INT( (IR-l)/2)+liai=IR-2*INT( (IR-l)/2)-l 
100 FIEI01,SR*127ASA1$,127ASA$;GET1,PR 

110 B1=INT( (A2-1)/Zl) :IFBlOB2THEMB2=Bl;CIOSE2:FM$=''ECATA''+CHR$(48+Bl)+": 

2" :D=2;M^B2+1:QOSUB140:OPEN''R'' ,2, ''roATA''4<3JR$ (48+Bl)+PW$+'' i2" 

120 B=a:-B1*Z1:B3=INT( (B-1)/2)+1:B4=&-2*INT( (B-1)/2)-1 

130 FIEID2, B4*127ASB1$ , 127ASB$: ISETB$=^A$ ; P0T2, B3: N>PC+1 : QOTO70 
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